#lang racket


(require "../proxies/main.rkt")

(require (prefix-in com: "rh-com.rkt"))

(provide clear-all-meshes-command
         offset-surface-solid-command)


; scripts

(define (clear-all-meshes-script)
  "ClearAllMeshes")

(define (offset-surface-solid-script distance)
  (format "OffsetSrf Solid ~A" distance))


; commands

(define (clear-all-meshes-command)
  (com:command (clear-all-meshes-script)))

(define (offset-surface-solid-command object distance)
  (com:unselect-all-objects)
  (com:select-object object)
  (com:command (offset-surface-solid-script (real<-number distance)))
  (com:last-created-objects))